home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / dialogbox.stk < prev    next >
Encoding:
Text File  |  1995-12-13  |  667 b   |  22 lines
  1. ;; A Dialog box
  2.  
  3. (define do-dialog
  4.   (lambda ()
  5.     (let ([i (stk:make-dialog :title "A Dialog Box" 
  6.                    :text "What do you want to do?" 
  7.                    :bitmap "question"
  8.                    :grab #t
  9.                    :defaults 0
  10.                    :buttons 
  11.                    (list
  12.                   `("Ok"     ,(lambda () (display "Ok\n")))
  13.                   `("Cancel" ,(lambda () (display "Cancel\n")))
  14.                   `("Abort"  ,(lambda () (display "Abort\n")))
  15.                   `("Retry"  ,(lambda () (display "Retry\n"))
  16.                   `("Help"   ,(lambda () (display "Help\n"))))))])
  17.       
  18.       (format #t "You pressed button #~s\n" i))))
  19.  
  20. (button '.b :text "Press Me" :width 40 :command (lambda () (do-dialog)))
  21. (pack .b :ipadx 10 :ipady 10)
  22.